home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Utilities / Text Utilities / Lock⁄Unlock / card_2849.txt < prev    next >
Encoding:
Text File  |  1988-04-23  |  2.0 KB  |  91 lines
  1. -- card: 2849 from stack: in
  2. -- bmap block id: 2374
  3. -- flags: 0000
  4. -- background id: 2608
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8004
  11. -- rect: left=95 top=77 right=95 bottom=155
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Lock
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   repeat with x=1 to the number of cards
  23.     go card x
  24.     repeat with y=1 to the number of card fields
  25.       set lockText of card field y to true
  26.     end repeat
  27.   end repeat
  28.   repeat with x=1 to the number of backgrounds
  29.     go first card of background x
  30.     repeat with y=1 to the number of fields
  31.       set lockText of field y to true
  32.     end repeat
  33.   end repeat
  34.  
  35. end mouseUp
  36.  
  37.  
  38.  
  39. -- part 2 (button)
  40. -- low flags: 00
  41. -- high flags: 8004
  42. -- rect: left=340 top=77 right=96 bottom=402
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: Unlock
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   repeat with x=1 to the number of cards
  54.     go card x
  55.     repeat with y=1 to the number of card fields
  56.       set lockText of card field y to false
  57.     end repeat
  58.   end repeat
  59.   repeat with x=1 to the number of backgrounds
  60.     go first card of background x
  61.     repeat with y=1 to the number of fields
  62.       set lockText of field y to false
  63.     end repeat
  64.   end repeat
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 3 (field)
  70. -- low flags: 01
  71. -- high flags: 2000
  72. -- rect: left=38 top=120 right=318 bottom=468
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 0
  76. -- font id: 3
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: 
  81.  
  82.  
  83. -- part contents for card part 3
  84. ----- text -----
  85. Copy these buttons to any stack...
  86.  
  87. Click "Lock" to lock the text in all fields in the stack.
  88.  
  89. Click "Unlock" to unlock all fields within the stack.
  90.  
  91.